datos<- read.csv2("efem.csv", row.names=1)
str(datos)
